home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / asm / d4851z.com / D48TST.ASM < prev    next >
Encoding:
Assembly Source File  |  1990-08-23  |  4.7 KB  |  323 lines
  1. ;
  2. ;  D48 Test File
  3. ;
  4.     ORG    0
  5. ;
  6. ;  0x group
  7. ;
  8. START:    NOP        ; 00
  9.             ; 01 unassigned
  10.     OUTL    BUS,A    ; 02
  11.     ADD    A,#12H    ; 03
  12.     JMP    START    ; 04
  13.     EN    I    ; 05
  14. ;            ; 06 unassigned
  15.     DEC    A    ; 07
  16.     INS    A,BUS    ; 08
  17.     IN    A,P1    ; 09
  18.     IN    A,P2    ; 0A
  19. ;            ; 0B unassigned
  20.     MOVD    A,P4    ; 0C
  21.     MOVD    A,P5    ; 0D
  22.     MOVD    A,P6    ; 0E
  23.     MOVD    A,P7    ; 0F
  24. ;
  25. ;  1x group
  26. ;
  27. GRP1:    INC    @R0    ; 10
  28.     INC    @R1    ; 11
  29.     JB0    GRP1    ; 12
  30.     ADDC    A,#12    ; 13
  31.     CALL    GRP1    ; 14
  32.     DIS    I    ; 15
  33.     JTF    GRP1    ; 16
  34.     INC    A    ; 17
  35.     INC    R0    ; 18
  36.     INC    R1    ; 19
  37.     INC    R2    ; 1A
  38.     INC    R3    ; 1B
  39.     INC    R4    ; 1C
  40.     INC    R5    ; 1D
  41.     INC    R6    ; 1E
  42.     INC    R7    ; 1F
  43. ;
  44. ;  2x group
  45. ;
  46. GRP2    XCH    A,@R0    ; 20
  47.     XCH    A,@R1    ; 21
  48. ;            ; 22 unassigned
  49.     MOV    A,#12H    ; 23
  50.     JMP    PAG1    ; 24
  51.     EN    T    ; 25
  52.     JNT0    GRP2    ; 26
  53.     CLR    A    ; 27
  54.     XCH    A,R0    ; 28
  55.     XCH    A,R1    ; 29
  56.     XCH    A,R2    ; 2A
  57.     XCH    A,R3    ; 2B
  58.     XCH    A,R4    ; 2C
  59.     XCH    A,R5    ; 2D
  60.     XCH    A,R6    ; 2E
  61.     XCH    A,R7    ; 2F
  62. ;
  63. ;  3x group
  64. ;
  65. GRP3:    XCHD    A,@R0    ; 30
  66.     XCHD    A,@R1    ; 31
  67.     JB1    GRP3    ; 32
  68. ;            ; 33 unassigned
  69.     CALL    PAG1    ; 34
  70.     DIS    T    ; 35
  71.     JT0    GRP3    ; 36
  72.     CPL    A    ; 37
  73. ;            ; 38 unassigned
  74.     OUTL    P1,A    ; 39
  75.     OUTL    P2,A    ; 3A
  76. ;            ; 3B unassigned
  77.     MOVD    P4,A    ; 3C
  78.     MOVD    P5,A    ; 3D
  79.     MOVD    P6,A    ; 3E
  80.     MOVD    P7,A    ; 3F
  81. ;
  82. ;  4x group
  83. ;
  84. GRP4:    ORL    A,@R0    ; 40
  85.     ORL    A,@R1    ; 41
  86.     MOV    A,T    ; 42
  87.     ORL    A,#12    ; 43
  88.     JMP    PAG2    ; 44
  89.     STRT    C    ; 45
  90.     JNT1    GRP4    ; 46
  91.     SWAP    A    ; 47
  92.     ORL    A,R0    ; 48
  93.     ORL    A,R1    ; 49
  94.     ORL    A,R2    ; 4A
  95.     ORL    A,R3    ; 4B
  96.     ORL    A,R4    ; 4C
  97.     ORL    A,R5    ; 4D
  98.     ORL    A,R6    ; 4E
  99.     ORL    A,R7    ; 4F
  100. ;
  101. ;  5x group
  102. ;
  103. GRP5:    ANL    A,@R0    ; 50
  104.     ANL    A,@R1    ; 51
  105.     JB2    GRP5    ; 52
  106.     ANL    A,#12H    ; 53
  107.     CALL    PAG2    ; 54
  108.     STRT    T    ; 55
  109.     JT1    GRP5    ; 56
  110.     DA    A    ; 57
  111.     ANL    A,R0    ; 58
  112.     ANL    A,R1    ; 59
  113.     ANL    A,R2    ; 5A
  114.     ANL    A,R3    ; 5B
  115.     ANL    A,R4    ; 5C
  116.     ANL    A,R5    ; 5D
  117.     ANL    A,R6    ; 5E
  118.     ANL    A,R7    ; 5F
  119. ;
  120. ;  6x group
  121. ;
  122.     ADD    A,@R0    ; 60
  123.     ADD    A,@R1    ; 61
  124.     MOV    T,A    ; 62
  125. ;            ; 63 unassigned
  126.     JMP    PAG3    ; 64
  127.     STOP    T    ; 65
  128. ;            ; 66 unassigned
  129.     RRC    A    ; 67
  130.     ADD    A,R0    ; 68
  131.     ADD    A,R1    ; 69
  132.     ADD    A,R2    ; 6A
  133.     ADD    A,R3    ; 6B
  134.     ADD    A,R4    ; 6C
  135.     ADD    A,R5    ; 6D
  136.     ADD    A,R6    ; 6E
  137.     ADD    A,R7    ; 6F
  138. ;
  139. ;  7x group
  140. ;
  141. GRP7:    ADDC    A,@R0    ; 70
  142.     ADDC    A,@R1    ; 71
  143.     JB3    GRP7    ; 72
  144. ;            ; 73 unassigned
  145.     CALL    PAG3    ; 74
  146.     ENT0    CLK    ; 75
  147.     JF1    GRP7    ; 76
  148.     RR    A    ; 77
  149.     ADDC    A,R0    ; 78
  150.     ADDC    A,R1    ; 79
  151.     ADDC    A,R2    ; 7A
  152.     ADDC    A,R3    ; 7B
  153.     ADDC    A,R4    ; 7C
  154.     ADDC    A,R5    ; 7D
  155.     ADDC    A,R6    ; 7E
  156.     ADDC    A,R7    ; 7F
  157. ;
  158. ;  8x group
  159. ;
  160. GRP8:    MOVX    A,@R0    ; 80
  161.     MOVX    A,@R1    ; 81
  162. ;            ; 82 unassigned
  163.     RET        ; 83
  164.     JMP    PAG4    ; 84
  165.     CLR    F0    ; 85
  166.     JNI    GRP8    ; 86
  167. ;            ; 87 unassigned
  168.     ORL    BUS,#12    ; 88
  169.     ORL    P1,#12H    ; 89
  170.     ORL    P2,#12    ; 8A
  171. ;            ; 8B unassigned
  172.     ORLD    P4,A    ; 8C
  173.     ORLD    P5,A    ; 8D
  174.     ORLD    P6,A    ; 8E
  175.     ORLD    P7,A    ; 8F
  176. ;
  177. ;  9x group
  178. ;
  179. GRP9    MOVX    @R0,A    ; 90
  180.     MOVX    @R1,A    ; 91
  181.     JB4    GRP9    ; 92
  182.     RETR        ; 93
  183.     CALL    PAG4    ; 94
  184.     CPL    F0    ; 95
  185.     JNZ    GRP9    ; 96
  186.     CLR    C    ; 97
  187.     ANL    BUS,#12    ; 98
  188.     ANL    P1,#12H    ; 99
  189.     ANL    P2,#12    ; 9A
  190. ;            ; 9B unassigned
  191.     ANLD    P4,A    ; 9C
  192.     ANLD    P5,A    ; 9D
  193.     ANLD    P6,A    ; 9E
  194.     ANLD    P7,A    ; 9F
  195. ;
  196. ;  Ax group
  197. ;
  198.     MOV    @R0,A    ; A0
  199.     MOV    @R1,A    ; A1
  200. ;            ; A2 unassigned
  201.     MOVP    A,@A    ; A3
  202.     JMP    PAG5    ; A4
  203.     CLR    F1    ; A5
  204. ;            ; A6 unassigned
  205.     CPL    C    ; A7
  206.     MOV    R0,A    ; A8
  207.     MOV    R1,A    ; A9
  208.     MOV    R2,A    ; AA
  209.     MOV    R3,A    ; AB
  210.     MOV    R4,A    ; AC
  211.     MOV    R5,A    ; AD
  212.     MOV    R6,A    ; AE
  213.     MOV    R7,A    ; AF
  214. ;
  215. ;  Bx group
  216. ;
  217. GRPB:    MOV    @R0,#12    ; B0
  218.     MOV    @R1,#12    ; B1
  219.     JB5    GRPB    ; B2
  220.     JMPP        ; B3
  221.     CALL    PAG5    ; B4
  222.     CPL    F1    ; B5
  223.     JF0    GRPB    ; B6
  224. ;            ; B7 unassigned
  225.     MOV    R0,#12    ; B8
  226.     MOV    R1,#12H    ; B9
  227.     MOV    R2,#12    ; BA
  228.     MOV    R3,#12H    ; BB
  229.     MOV    R4,#12    ; BC
  230.     MOV    R5,#12H    ; BD
  231.     MOV    R6,#12    ; BE
  232.     MOV    R7,#12H    ; BF
  233. ;
  234. ;  Cx group
  235. ;
  236. ;            ; C0 unassigned
  237. ;            ; C1 unassigned
  238. ;            ; C2 unassigned
  239. ;            ; C3 unassigned
  240. GRPC:    JMP    PAG6    ; C4
  241.     SEL    RB0    ; C5
  242.     JZ    GRPC    ; C6
  243.     MOV    A,PSW    ; C7
  244.     DEC    R0    ; C8
  245.     DEC    R1    ; C9
  246.     DEC    R2    ; CA
  247.     DEC    R3    ; CB
  248.     DEC    R4    ; CC
  249.     DEC    R5    ; CD
  250.     DEC    R6    ; CE
  251.     DEC    R7    ; CF
  252. ;
  253. ;  Dx group
  254. ;
  255. GRPD:    XRL    A,@R0    ; D0
  256.     XRL    A,@R1    ; D1
  257.     JB6    GRPD    ; D2
  258.     XRL    A,#12    ; D3
  259.     CALL    PAG6    ; D4
  260.     SEL    RB1    ; D5
  261. ;            ; D6 unassigned
  262.     MOV    PSW,A    ; D7
  263.     XRL    A,R0    ; D8
  264.     XRL    A,R1    ; D9
  265.     XRL    A,R2    ; DA
  266.     XRL    A,R3    ; DB
  267.     XRL    A,R4    ; DC
  268.     XRL    A,R5    ; DD
  269.     XRL    A,R6    ; DE
  270.     XRL    A,R7    ; DF
  271. ;
  272. ;  Ex group
  273. ;
  274.     ORG    100H
  275. ;
  276. ;            ; E0 unassigned
  277. ;            ; E1 unassigned
  278. ;            ; E2 unassigned
  279. GRPE:    MOVP3    A,@A    ; E3
  280.     JMP    PAG7    ; E4
  281.     SEL    MB0    ; E5
  282.     JNC    GRPE    ; E6
  283.     RL    A    ; E7
  284. ;
  285. LOOP    DJNZ    R0,LOOP    ; E8
  286.     DJNZ    R1,LOOP    ; E9
  287.     DJNZ    R2,LOOP    ; EA
  288.     DJNZ    R3,LOOP    ; EB
  289.     DJNZ    R4,LOOP    ; EC
  290.     DJNZ    R5,LOOP    ; ED
  291.     DJNZ    R6,LOOP    ; EE
  292.     DJNZ    R7,LOOP    ; EF
  293. ;
  294. ;  Fx group
  295. ;
  296. GRPF:    MOV    A,@R0    ; F0
  297.     MOV    A,@R1    ; F1
  298.     JB7    GRPF    ; F2
  299. ;            ; F3 unassigned
  300.     CALL    PAG7    ; F4
  301.     SEL    MB1    ; F5
  302.     JC    GRPF    ; F6
  303.     RLC    A    ; F7
  304.     MOV    A,R0    ; F8
  305.     MOV    A,R1    ; F9
  306.     MOV    A,R2    ; FA
  307.     MOV    A,R3    ; FB
  308.     MOV    A,R4    ; FC
  309.     MOV    A,R5    ; FD
  310.     MOV    A,R6    ; FE
  311.     MOV    A,R7    ; FF
  312. ;
  313. PAG1    EQU    123H
  314. PAG2:    EQU    224H
  315. PAG3    EQU    345H
  316. PAG4:    EQU    456H
  317. PAG5    EQU    567H
  318. PAG6:    EQU    678H
  319. PAG7    EQU    789H
  320. ;
  321.         END
  322. ;
  323.